﻿Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intVar As Integer

        Dim vbint As Short
        Dim vblong As Integer

2:      intVar = 32767
3:      intVar = intVar + 1

        Try
            intVar = intVar / 0
        Catch ex As Exception
            MessageBox.Show("Die Operation verursachte eine Ausnahme" & _
                            vbNewLine & vbNewLine & _
                            ex.Message & vbNewLine & _
                            ex.StackTrace)
        End Try

4:      Dim longVar As Long
5:      longVar = 2147483647
6:      longVar = longVar + 1

        Dim dblVar As Double
7:      dblVar = 123.23
8:      dblVar = dblVar / 0
9:      dblVar = 0
10:     dblVar = 0 / 0
    End Sub
End Class
